%function [ coarse_v ] = rest( v )
%REST Summary of this function goes here
%   Detailed explanation goes here

%coarse_v = prepareR(length(v),1) * v;

function [ coarse_v ] = rest( v ) 
%REST Summary of this function goes here 
%   Detailed explanation goes here  
coarse_v = prepareR(length(v)) * v;

end

